﻿<Serializable()> _
Public Class Eadicionales

#Region "           Atributos                       "
    Private _idAdicional As Int32
    Private _descAdicional As String
    Private _tituloAdicional As String
    Private _monto As Decimal
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
    Private _idProyecto As Int32 'JF
    Private _tipoAdicional As String 'JF
    Private _descProyecto As String 'JF
    Private _descTpoAdicional As String 'JF
    Private _codAdicional As String 'JF
    Private _tipoCasa As String 'JF

    Private _filtro As String
#End Region

#Region "           Propiedades                     "
    Public Property idAdicional() As Integer
        Get
            Return _idAdicional
        End Get
        Set(ByVal value As Integer)
            _idAdicional = value
        End Set
    End Property
    Public Property descAdicional() As String
        Get
            Return _descAdicional
        End Get
        Set(ByVal value As String)
            _descAdicional = value
        End Set
    End Property
    Public Property monto() As Decimal
        Get
            Return _monto
        End Get
        Set(ByVal value As Decimal)
            _monto = value
        End Set
    End Property
    Public Property tituloAdicional() As String
        Get
            Return _tituloAdicional
        End Get
        Set(ByVal value As String)
            _tituloAdicional = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    Public Property idProyecto() As Int32 'JF
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property descProyecto() As String 'JF
        Get
            Return _descProyecto
        End Get
        Set(ByVal value As String)
            _descProyecto = value
        End Set
    End Property
    Public Property tipoAdicional() As String 'JF
        Get
            Return _tipoAdicional
        End Get
        Set(ByVal value As String)
            _tipoAdicional = value
        End Set
    End Property
    Public Property tipoCasa() As String 'JF
        Get
            Return _tipoCasa
        End Get
        Set(ByVal value As String)
            _tipoCasa = value
        End Set
    End Property
    Public Property descTpoAdicional() As String 'JF
        Get
            Return _descTpoAdicional
        End Get
        Set(ByVal value As String)
            _descTpoAdicional = value
        End Set
    End Property

    Public Property filtro() As String
        Get
            Return _filtro
        End Get
        Set(ByVal value As String)
            _filtro = value
        End Set
    End Property

    Public Property codAdicional() As String
        Get
            Return _codAdicional
        End Get
        Set(ByVal value As String)
            _codAdicional = value
        End Set
    End Property
#End Region


#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idAdicional As Int32, ByVal tituloAdicional As String)
        Me.idAdicional = idAdicional
        Me.tituloAdicional = tituloAdicional
    End Sub
    Public Sub New(ByVal tipoCasa As String)
        Me.tipoCasa = tipoCasa
    End Sub
    Public Sub New(ByVal idAdicional As Int32, ByVal tituloAdicional As String, _
                   ByVal estado As String, ByVal idUsuario As Integer, ByVal idProyecto As Int32, ByVal tipoAdicional As Int32) ', _
        'ByVal descProyecto As String, ByVal descTpoDescuento As String)
        Me.idAdicional = idAdicional
        Me.tituloAdicional = tituloAdicional
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idUsuario = idUsuario
        Me.idProyecto = idProyecto 'JF
        Me.tipoAdicional = tipoAdicional 'JF
    End Sub

    Public Sub New(ByVal idAdicional As Int32, ByVal tituloAdicional As String, ByVal monto As Decimal, ByVal dsctoMax As Decimal, _
                   ByVal estado As String, ByVal idUsuario As Integer, ByVal idProyecto As Int32, ByVal tipoAdicional As Int32)
        Me.idAdicional = idAdicional
        Me.tituloAdicional = tituloAdicional

        Me.estado = estado
        'Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idUsuario = idUsuario
        Me.idProyecto = idProyecto 'JF
        Me.tipoAdicional = tipoAdicional 'JF
    End Sub
    Public Sub New(ByVal idAdicional As Int32, ByVal codAdicional As String, ByVal tituloAdicional As String, ByVal tipoAdicional As String, _
                   ByVal descAdicional As String, ByVal descTpoAdicional As String, ByVal monto As String, ByVal estado As String, ByVal descestado As String, _
                   ByVal idProyecto As Int32, ByVal descProyecto As String, ByVal idUsuario As Integer, ByVal tipoCasa As String)
        Me.idAdicional = idAdicional
        Me.codAdicional = codAdicional
        Me.tituloAdicional = tituloAdicional
        Me.tipoAdicional = tipoAdicional
        Me.descAdicional = descAdicional
        Me.descTpoAdicional = descTpoAdicional
        Me.monto = monto
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idProyecto = idProyecto 'JF
        Me.descProyecto = descProyecto 'JF
        Me.idUsuario = idUsuario
        Me.tipoCasa = tipoCasa
    End Sub

    'Public Sub New(ByVal tipoAdicional As Int32, ByVal descTpoDescuento As String, ByVal estado As String)
    '    Me.tipoAdicional = tipoAdicional 'JF
    '    Me.descTpoAdicional = descTpoAdicional 'JF
    '    Me.estado = estado 'JF
    'End Sub
    Public Sub New(ByVal idAdicional As Int32, ByVal tituloAdicional As String, ByVal estado As String)
        Me.idAdicional = idAdicional 'JF
        Me.tituloAdicional = tituloAdicional 'JF
        Me.estado = estado 'JF
    End Sub
#End Region


End Class
